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ABSTRACT 


A  library  subroutine  named  PREFORM  has  been  developed  for  use  on 
the  PDP-11/10  computer.  This  subroutine  can  be  accessed  by  user  programs 
to  process  data  stored  on  disk  or  data  entered  at  the  computer  terminal. 
The  use  of  FREFORM  eliminates  the  need  for  format  statements  in  programs 
which  process  or  use  such  data.  More  importantly,  restrictions  on  the 
data  format  and  syntax  are  greatly  reduced. 
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SECTION  1 
INTRODUCTION 


Subroutine  FREFORM  can  process  data  which  are  relatively 
unrestricted  in  format  and  syntax.  Thus,  it  can  be  used  in  place  of  the 
usual  formatted  I/O  statements.  The  objective  is  to  simplify  user 
programs  while  at  the  same  time  enhancing  the  efficiency  of  terminal 
use.  FREFORM  differs  from  conventional  processing  algorithms  in  that  it 
is  highly  flexible.  (NAMELIST,  for  example,  is  intended  primarily  for 
batch  mode,  and  requires  user  knowledge  of  variable  names.)  FREFORM  is 
designed  specifically  for  users  of  NRL's  Data  Acquisition  System. 

The  usefulness  of  FREFORM  can  be  illustrated  with  a  simple 
example.  Consider  the  input  data  sequence, 

SH0T^4395^SI02  ^1.000E+03  ^4.000E~02  J. 142K+00^  233, 

entered  by  a  user  at  a  terminal  console.  (The  *  symbol  will  be  used  to 
explicitly  represent  a  blank,  or  space.)  The  conventional  program  will 
contain  format  statements  contracted  specifically  to  read  such  data 
strings.  To  read  the  data  sequence  above,  the  user's  program  might 
contain  the  following  statements: 

RKAD( 5 , 100)ALFA ,NSH0T, HETA , (COEF( 1 ) , 1= ! ,3), I  51 9 
100  F0RMAT(1X,A4,1X,I4,1X,A4,3(2X,EI0.3),I5) 

Execution  of  this  read  statement  will  cause  an  ASCII  representation  of  the 
word  "SHOT”  to  he  stored  in  the  central  memory  location  referenced  by  the 
word,  ALFA.  Similarly  the  integer  value,  4395,  will  be  stored  in  the  word 
referenced  by  NSHOT,  et  cetera.  Of  course,  if  the  data  entry  is  made 
incorrectly  (e.g.,  the  wrong  spacing,  use  of  F-  rather  than  E-format,  et 
cetera)  the  result  can  he  catastrophic  If  not  recognized  and  corrected. 


As  an  alternative,  this  same  user  program  might  contain  the 


statement: 


CALL  FREFORM (VALU.NVAL). 

In  this  case,  execution  will  result  in  the  representation  of  "SHOT”  stored 
in  VALU(l),  the  integer,  4395,  stored  in  VALU(2),  et  cetera.  This  alter¬ 
native  is  clearly  simpler  for  the  programmer.  However,  the  real  virtue  of 
this  approach  is  that  the  user  at  the  terminal  console  is  no  longer 
restricted  to  any  exact  format.  Thus,  equivalent  results  will  be  obtained 
from  the  data  sequence, 

SHOT  4395, SI02, 1E3  .04,  3.142  235. 

AAA  A  A  A  /V 

Note  the  (arbitrary)  insertion  of  commas  and/or  blanks  as  well  as  the 
varied  syntactical  forms  in  this  second  data  sequence.  Acceptable  varia¬ 
tions  are  limitless  in  number.  Thus,  FREFORM  frees  the  user  from  the 
necessity  of  remembering  and  exactly  reproducing  program  formats. 

The  remainder  of  this  report  is  organized  as  follows.  Section  2 
explains  how  FREFORM  functions  in  normal  and  test  modes,  the  method  in 
which  data  is  processed,  and  the  simple  rules  for  data  syntax.  Section  3 
discusses  implementation  on  the  DEC-10  and  the  PDP-11/10  computers  and 
presents  results  obtained  from  an  actual  run  using  the  test  and  diagnostic 
algorithms.  Flow  diagrams  for  the  test  algorithm  (TESTFF)  and  the 
processing  algorithm  (FREFORM)  are  presented  and  explained  in  Section  4. 
The  complete  FORTRAN  listing  of  both  algorithms  as  implemented  on  the 
DEC-10  is  reproduced  in  Section  5. 


SECTION  2 

HOW  FREFORM  FUNCTIONS 


2.1  THE  NORMAL,  TEST,  AND  DIAGNOSTIC  MODES 

2.1.1  Normal  Mode 

The  subroutine,  FREFORM,  exists  as  a  library  subroutine  on  the 
PDP-11/10.  As  such,  it  can  be  accessed  by  any  user  program  which  requires 
data.  Such  data  might  reside  on  disk,  but  more  commonly  would  be  entered 
by  a  user  from  the  terminal  console  (VT55).  Thus,  FREFORM  provides  a 
means  of  entering  input  data  to  the  computer. 

A  typical  application  is  illustrated  schematically  in  Figure 
1(a).  This  example  consists  of  a  main  program  and  four  subroutines,  three 
cf  which  require  input  data  to  be  entered  from  the  terminal.  The  command 
sequence  subroutine  would  be  used  to  enter  key  words  specifying  operations 
to  be  performed  by  the  program.  Additional  data  (either  "A"  parameters  or 
”B”  parameters)  might  be  required  depending  upon  the  specified 
operations.  In  all  cases,  the  commands  (alphanumeric  words),  parameters 
(integer,  fixed  point,  and  floating  point  numbers)  and  comments 
( alphanumer ic  text)  can  be  entered  simply  from  the  terminal  in  response  to 
queries  from  the  input  subroutines.  Data  so  entered  will  automatically  be 
processed  by  FRF.KORM. 

2.1.2  Test  Mode 

A  main  program  named  TESTER  is  also  available  on  the  PDP-11/10. 
This  program  Is  designed  to  validate  and  demonstrate  the  performance  of 
PREFORM.  Tills  mode  of  application  is  illustrated  schematically  in  Figure 
Kb). 
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(a)  A  Typical  Program  Application  in  the  Normal  Mode. 


(b)  Application  in  the  Test  Mode 


Figure  1.  Application  Modes  for  PREFORM. 


TESTFF  allows  a  user  to  enter  a  string  of  data  at  the  terminal 
in  an  arbitrary  format.  This  data  will  be  processed  by  FREFORM,  and  the 
interpreted  values  will  be  returned  to  the  user  (printed)  at  the 
terminal.  One  of  the  restrictions  on  use  of  TESTFF  is  that  all  of  the 
values  returned  from  each  sequence  string  will  be  printed  according  to  the 
same  format  specification.  Thus,  all  of  the  values  submitted  in  each 
sequence  string  must  be  of  the  same  data  type.  Of  course,  this 
restriction  does  not  apply  to  the  normal  use  of  FREFORM. 

2.1.3  Diagnostic  Mode 


Subroutine  FREFORM  contains  a  system  diagnostic  mode.  It  is 
activated  by  altering  a  data  statement  in  FREFORM  so  that  the  variable, 
1TST,  is  set  to  unity  rather  than  zero.  The  diagnostic  mode  causes  a 
listing  of  all  system-dependent  parameters  and  ASCII  character  variables 
to  be  printed  on  the  first  call.  Subsequently,  all  record  images  and 
process  strings  will  be  printed  prior  to  translation.  This  mode  is 
extremely  useful  for  implementing  the  algorithm  on  a  new  system,  or  for 
analyzing  anomalous  results. 

Results  from  an  actual  run  using  the  test  and  diagnostic  modes 
are  presented  in  Section  3. 

2.2  DATA  PROCESSING 

In  the  normal  mode,  a  sequence  string  of  data  will  be  supplied 
by  the  user  in  response  to  a  query  from  the  user  program.  Following  a 
call  to  subroutine  FREFORM,  the  processing  of  this  data  occurs  in  four 
major  steps: 

(1)  A  record  image  (usually  80  characters)  is  read  into  an  integer 
array,  JC1M.  One  character  is  placed  in  each  array  element.  A 
new  record  image  is  obtained  when  all  of  the  characters  ori  the 
previous  Image  have  been  processed. 


(2)  Each  character  in  JCIM  is  tested  against  each  of  the  four  string 
delimiters  (see  below)  and  possibly  stored  in  an  integer  array, 
JCST,  which  contains  the  process  string.  One  character  is 
stored  in  each  array  element.  When  a  delimiter  is  detected, 
testing  stops  and  processing  is  initiated. 


(3)  A  test  is  made  to  determine  whether  the  process  string  contained 
in  JCST  is  a  numerical  value  or  an  alphanumeric  character 
string. 

(4)  The  contents  of  JCST  are  interpreted  and  then  stored  in  the 
array,  VALU,  by  either  a  number  decoding  algorithm  or  a 
character  string  packing  algorithm,  according  to  the  result  of 
the  test.  The  array,  VALU,  is  returned  to  the  calling  program 
unit  (user  program)  when  the  entire  sequence  string  has  been 
read,  translated,  and  stored. 


DATA  SYNTAX 


2.3.1 


The  Record  String  and  Other  Definitions 


The  total  set  of  data  to  be  processed  by  FREFORM  may  be  regarded 
as  one  contiguous  string  of  characters,  referred  to  as  the  record  string. 
Four  special  characters  embedded  in  the  record  string  -  the  slash,  the 
comma,  the  asterisk  and  the  blank  -  serve  as  delimiters.  Except  for  the 
special  case  discussed  in  the  next  paragraph,  all  image  boundaries  in  the 
data  are  ignored. 


Each  call  to  FREFORM  will  process  a  certain  amount  of  data 
referred  to  as  a  sequence  string.  The  length  of  a  sequence  string  can  be 
varied  by  two  different  methods.  With  the  first  method,  the  sequence 
string  terminates  whenever  a  slash  delimiter  is  encountered  in  the  data. 


» 


This  method  is  useful  when  processing  large,  structured  strings  in  the 
batch  mode.  The  second  method,  which  is  more  useful  in  the  iteractive 
mode,  terminates  the  sequence  string  when  it  contains  a  preset  number  of 
record  images.  (This  preset  number  is  contained  in  a  data  statement  which 
initializes  the  variable,  NIPS.  For  terminal  applications,  a  value  of 
unity  will  cause  the  scope  line  (one  record  image)  and  the  sequence  string 
to  be  equal.  Then  each  line  on  the  scope  will  be  processed  separately, 
without  the  need  to  type  slash  delimiters  to  terminate  the  sequence 
strings . ) 


Within  the  sequence  string,  individual  data  are  delimited  by 
blanks,  commas,  or  asterisks,  as  indicated  in  the  discussion  of  data 
types,  which  follows. 

2.3.2  Allowable  Data  Types 


FREFORM  allows  four  types  of  data: 

(1)  Numerical  Constants  -  Rational  number  constants  are 
recognized  in  fixed,  integer,  and  exponential  formats 
(examples  -  143,  3.14159,  l.E-07).  Data  must  be 

separated  by  space  or  comma  delimiters.  Nonessential 
characters  will  be  automatically  supplied  during  inter¬ 
pretation  (thus,  for  example,  IE-7  and  I.0E-07  will  be 

*  interpreted  identically). 

(2)  Alphanumeric  constants  -  Alphanumeric  constants  are 

recognized  by  the  first  character,  which  must  be  alpha- 

*  betical.  Succeeding  characters  may  be  alphabetical, 

numerical,  or  may  be  any  ASCII  special  character  other 
than  the  slash  or  asterisk,  or  the  system-dependent 
control  characters  (examples  -  A123,  Z$45,  START).  Data 

*  must  be  separated  by  space  or  comma  delimiters. 
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(3) 


Null  Values  -  A  null  value  is  created  by  recognition  of 
successive  commas,  with  no  intervening  characters. 

(Blanks,  or  spaces,  between  adjacent  commas  will  be 
ignored.  For  example,  the  character  string  (,  ,,)  will 
produce  two  null  values.) 

(4)  Text  -  Any  character  string  delimited  by  two  asterisks 
(at  beginning  and  end)  will  be  recognized  as  text,  and 
will  be  retained  intact  with  embedded  spaces,  commas, 
and  all  ASCII  characters  (except  the  slash  and 
asterisk  which  would  terminate  the  string,  and  the 
system-dependent  control  characters).  The  text  will  be 
coded  in  as  many  words  as  are  required  to  process  the 
string. 

The  number  of  characters  devoted  to  a  single  numerical  or 
alphanumeric  constant  may  not  exceed  the  value  of  the  variable,  NCPS.  If 
the  number  of  characters  in  any  delimited  data  value  exceeds  NCPS,  a 
delimiter  is  assumed  after  every  NCPS  characters  in  the  data,  beginning 
with  the  leftmost  character.  (For  example,  with  NCPS  =  4,  the  string 
"  2345. 67891 E-23  "  would  be  divided  into  four  values:  "2345",  ".678”, 
"91 E— " ,  and  "23".)  Thus,  if  one  of  the  values  represent  an  incorrectly 
formatted  numerical  constant,  an  error  will  occur,  as  described  below. 

2.3.3  Error  Analysis 

PREFORM  is  Intentionally  tolerant  of  varied  syntactical  forms. 
However,  two  types  of  errors  which  can  occur  in  the  formation  of  a 
numerical  constant  are  recognized. 


(1)  Syntax  error  in  the  mantissa  -  Any  data  entry  (excluding  text 
delimited  by  asterisks)  beginning  with  a  nonalphabetical 
character  is  assumed  to  be  a  numerical  constant.  If  this 
constant  cannot  be  interpreted,  a  syntax  error  results. 
(Examples:  25.00F+02,  -H-15,  &STRING) 

(2)  Syntax  error  in  the  exponent  -  The  exponent  of  a  floating  point 
numerical  constant  must  be  an  integer  value.  (It  may  include  an 
algebraic  sign).  If  an  exponent  cannot  be  interpreted,  a  syntax 
error  results.  (Examples:  2E2.,  2EE3,  2E-I) 

For  these  two  cases,  a  blank  value  will  be  substituted  for  the 
data  entry,  and  an  error  message  will  be  printed.  A  typical  error  message 
is  shown  below: 


********  ERROR  DETECTED  BY  SUBROUTINE  FREFORM  IN  RECORD  IMAGE  5  ********** 
TEXT  HERE  IS  AN  ERROR  DIAGNOSTIC  25F/ 

COLUMN:  36  PROCESS  STRING:  25F 

******** *******************************  * ********************************** 

The  message  contains  information  helpful  in  locating  and 
analyzing  the  error.  The  first  line  gives  the  number  of  the  record  image 
on  which  the  error  was  encountered.  Images  are  numbered  sequentially 
beginning  from  the  first  call  to  FREFORM.  The  second  line  reproduced  the 
first  eighty  (80)  characters  of  the  image.  The  third  line  identifies  the 
column  number  of  the  entry  and  reproduces  the  numerical  value  of  the 
process  string. 
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SECTION  3 


IMPLEMENTATION  AND  TESTING 

3.1  SYSTEM-DEPENDENT  PARAMETERS 

Data  is  read  from  a  file  with  logical  unit  number  5.  Thus, 
input  data  from  an  I/O  device  (such  as  a  card  reader  or  console)  will  be 
processed  if  the  logical  unit  number  5  is  assigned  to  the  input  file  by 
the  calling  program,  or  if  the  logical  unit  number  5  is  associated  with 
the  I/O  device  by  the  system.  Output  is  written  to  a  file  with  logical 
unit  number  6.  Thus,  messages  will  be  sent  to  a  printer  if  the  logical 
unit  number  6  is  assigned  to  the  output  file  by  the  calling  program,  or  if 
this  association  is  made  by  the  system. 

In  addition,  certain  parameters  and  ASCII  character  variables 
arc  defined  in  data  statements  in  FREFORM.  Parameter  values  suitable  for 
the  DEC-10  and  the  PDP-11/10  computers  are  given  in  Table  1.  In  general, 
these  parameters  must  be  selected  for  system  compatibility  as  well  as  the 
intended  application.  The  parameters  NCIW  and  NCRW  (number  of  characters 
per  integer  word  or  real  word,  respectively)  are  needed  to  pack  character 
data  and  to  decode  numerical  data.  The  parameter  NCPS  (number  of 
characters  per  process  string)  determines  the  length  of  the  largest 
numerical  constant  which  may  be  processed;  NCPS  should  be  small  enough 
that  numbers  beyond  the  range  of  the  machine  will  not  be  accepted.  Since 
NCPS  also  determines  the  length  of  the  largest  alphanumeric  constant  which 
may  be  processed,  it  is  often  convenient  to  make  NCPS  some  integral 
multiple  of  NCRW.  (Note  also  that  the  length  of  the  .JCST  array  must 
always  be  greater  than  NCPS.  This  prevents  overflow  of  the  array  and 
ensures  the  existence  of  at  least  one  blank  at  the  end  of  every  process 
string. ) 
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TABLE  1 

SYSTEM-DEPENDENT  PARAMETERS 


Parameter 


DEC-10 


PDP-11/10 


NCIW 

5 

NCRW 

5 

NCPS 

• 

20 

NCPI 

80 

NIPS 

1 

2 

A 

20 

80 

1 


I 


1 1 


t 


The  proper  value  of  NCPI  (number  of  characters  per  image) 
depends  on  the  file  or  I/O  device  from  which  data  is  read.  A  large  value 
may  be  useful  when  reading  large  sections  of  text  since  all  of  the  text 
can  be  returned  at  one  time.  Setting  NIPS  to  unity,  however,  makes  each 
sequence  string  exactly  one  record  image  in  length.  This  choice  is  more 
suitable  for  terminal  applications,  since  it  allows  the  operator  to  omit 
slashes  from  the  data  sequence. 

THE  ASCII  character  variables  are  used  by  FREFORM  for  comparison 
tests.  JCSL,  JCAS,  JCSP  and  JCCO  are  used  to  identify  delimiters.  JCMI, 
JCPL,  JCAE ,  JCDP,  JCNI  and  JCNF  are  used  to  identify  parts  of  a  numerical 
constant.  JCAI  and  JCAF  are  used  to  determine  whether  the  first  character 
in  a  process  string  is  alphabetic.  The  bits  containing  the  character  in 
each  of  the  character  variables  must  occupy  the  same  position  within  the 
machine  word  as  they  do  in  the  storage  arrays  JCIM  and  JCST  for  the 
comparison  tests  to  function  correctly.  The  diagnostic  mode  in  FREFORM 
can  be  enabled  by  changing  the  value  of  a  flag  (ITST  Is  initialized  in  a 
data  statement)  from  zero  to  unity.  This  will  result  in  a  listing  of  the 
system  dependent  parameters  when  FREFORM  is  first  executed.  In  addition, 
all  data  processed  in  this  mode  will  be  listed  at  various  stages  of 
processing.  This  diagnostic  capability  is  provided  to  aid  in 
implementation  of  FREFORM  on  a  different  system.  An  example  of  its  use 
follows . 


3.2  TESTING  WITH  TESTFF 

The  main  program,  TEST FF,  is  intended  to  provide  demonstration 
and  validation  capability.  It  allows  a  terminal  operator  to  send  data 
sequences  to  FREFORM,  and  to  immediately  inspect  the  processed  results. 

To  use  TESTFF,  the  type  of  data  (see  Section  2.3.2)  must  be 
speefied  by  a  keyword  at  the  beginning  of  each  sequence  string.  (If  the 
data  type  is  not  specified  In  the  first  sequence  string,  program  execution 


i . 


is  terminated.)  Once  a  data  type  has  been  specified,  all  sequence  strings 
are  assumed  to  be  of  that  type  until  a  new  type  is  specified.  TESTFF 
recognizes  three  data  type  keywords:  "INTG" ,  "FLTG" ,  and  "TEXT".  Program 
execution  is  terminated  by  the  keyword,  "STOP”,  which  must  occur  at  the 
beginning  of  a  sequence  string.  Any  data  following  the  word  "STOP"  will 
not  be  printed  by  program  TESTFF. 

Table  2  presents  output  from  a  sample  run  in  the  diagnostic  mode 
made  interactively  from  a  terminal  console.  Note  that  the  output 
originates  both  from  TESTFF  and  from  FREFORM  (diagnostic  mode).  The 
source  is  clearly  indicated  by  the  headers  at  the  beginning  and  end  of 
each  section  of  output. 

The  first  execution  of  FREFORM  (diagnostic  mode  is  enabled) 
produces  a  listing  of  the  system-dependent  parameters  and  ASCII 
characters.  In  the  first  example,  the  data  sequence  begins  with  the 
keyword  "TEXT".  Diagnostic  output  from  FREFORM  shows  the  actual  process 
strings,  while  the  TESTFF  output  lists  the  representation  of  each  word  in 
the  array,  VALU.  Thus,  characters  representing  the  word  "TEXT'"  are 
stored  in  VALU(l),  and  so  forth. 

The  second  example  differs  from  the  first  in  that  alphanumeric 
text  is  used  (asterisk  delimiters).  Note  the  embedded  blanks,  commas,  et 
cetera  in  the  processed  output.  The  third  example  involves  integer 
numbers.  Note  the  representation  of  a  null  value,  produced  by  two 
adjacent  commas.  Floating  point  numbers  are  processed  in  the  fourth 
example,  which  includes  a  deliberate  error  (5F2  is  syntactically 
unrecognizable).  The  resulting  error  message  would  have  been  produced 
even  if  the  diagnostic  mode  is  disabled. 

The  final  example  consists  of  three  sequence  strings  of  text. 
(The  first  two  are  delimited  by  slash  characters.)  Note  that  the  integer 
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value,  2,  In  the  second  string  is  correctly  interpreted  by  FREFORM,  even 
though  TESTFF  attempts  to  print  the  result  in  a  text  (alphanumeric) 
format.  The  final  sequence  string  contains  the  keyword  "STOP",  which 
terminates  execution  of  TESTFF. 


TABU-  2 

OUTPUT  FROM  SAM  PIT'.  HUN’  OF  ]•  UKi-OKM 
J  A  THU  DIAGNOSTIC  MODI-; 


mtsntnnttuntnnt  program  testff  -  march  i?si  ttnnttntuu 


tnnsitztznnnnnnn  subroutine  frefor  diagnostic  ttttzttnttntnttnitzix 

ASCII  CHARACTER  VARIABLES 


jcae  jcaf 

■JCAI 

JCAS 

JCCO 

JCDP 

E  1 

A 

* 

i 

JCMI  JCilF 

JCHI 

JCPL 

JCSL 

JCSP 

9 

0 

4* 

/ 

SYSTEM-DEPENDENT  PARAM 

to 

LU 

1 — 

UJ 

NCI1!  NCRU 

NCPI 

NCPS 

NIPS 

S  S 

80 

20 

1 

tttnznnnntnnunnnntn  end  diagnostic 

TEXT  ALPHANUMERIC  CHARACTER  STRINGS:  RUNS  2123,  ATcSYhBGL 

subroutine  frefor  diagnostic  zttmnntmnunntn 

SEQUENCE  STRING:  1  RECORD  IMAGE-  1 

TEXT  ALPHANUMERIC  CMARACTFR  STRINGS-  RUMS  2123,  AT8SYMBGL 


COLUMN: 

t 

PROCESS 

COLUMN: 

10 

PROCESS 

COLUMN: 

PROCESS 

COLUMN : 

33 

PPOCESG 

COLUMN: 

13 

PROCESS 

COLUMN : 

■19 

PROCESS 

COLUMN: 

r  r 

_/  w 

DL  H 

t  FJjLl  j  j 

;:n!:i 

r?Si 

rXUiitt 

;  *  r  *  *  ♦  * 

•f-r 

••  ttt'.Tt 

mi  it  zi  r'tiiztitmmuti’.tt  m  End  DIAGNOSTIC  '.ttuuttuituunitiui-.titut 


Ci':U  . 


TEXT 

ALPHA 

HUMER 

IC 

CHAPA 

CTEF. 

ST  RIM 
GS: 

RUMS 
2i  23 
ATQST 
HBOL 

tniiuitmtmtnsttit  end  output  from,  program  testff  nntmnu%\nn%ztm 

tTEXT  STRING  TJITH  EMBEDDED  BLANKS,  COfiHAS,  SPECIAL  CHARACTERS  4  NUMBERS  !  70  P'S 

tinttztittztnntttnttz  subroutine  frefor  diagnostic  ntnnznnn ttmtzmtt 

SEQUENCE  STRING:  2  RECORD  IMAGE:  2 


tTEXT  STPIUG  WITH  EMBEDDED  BLANKS,  COMMAS ,  SPECIAL  CHARACTERS  4  NUMBERS  !  700* 

COLUMN:  i  PROCESS  STRING-.  TEXT  STRING  lilTH  EM3 
COLUMN:  21  PROCESS  STRING:  EBDEP  RANKS,  COMMAS 
COLUMN:  41  PROCESS  STRING:  ,  SPECIAL  CHARACTERS 
COLUMN:  62  PP0CC23  STRING-  4  .MUMPERS  !  700 


ttttttfKttrttttzitiitzttnuttt  end  diagnostic  tmtttttmstmttmttttmttt 


MtZStMMlzV 


nt  OUTPUT  FROM  PROGRAM  TESTFF  tttniUMmitt !*?««*» 


TEXT 
STIIM 
C  HIT 
II  EMB 
E  DOr  J 
TLf.U 
KG ,  C 
DUh-T 
,  SPF. 
Cl  AL 
[HARM 
lTEP.5 


TAE'.il  2,  Ciuit  . 


» 


> 


I 


HDERS 

i  7 

CU 


tmnnnnnnnntm  eud  output  from  program  testff  ntttunmti'tvMttm 

INTO  700  £>G0 ,  SOO,  ,300 

tntttnmntmitttnn  sui.?.outike  fp.efgr  diagnostic 

SEQUENCE  STRING:  3  RECORD  IMAGE  3 


2M7G  700  fcOO,  SOO ,  ,300 


COLUMN ; 

i 

PROCESS 

STRING 

INTC 

COLLMM: 

10 

PROCESS 

ST?  IMG 

790 

CGLG1-M: 

IS 

PROCESS 

ST? 

INC 

in, 

COLUMN: 

So 

PROCESS 

ST:; 

IMG 

SOO 

COLUMN  ■■ 

27 

PROCESS 

ST? 

INC 

COLUWI: 

00 

PROCESS 

STT. 

IMG 

300 

tf->4t****'iv* 


DIA GNOSTIC  %ntZttiUi.tZtUtZnUiUUUtti 


iminnttntuzimn%3%  output  ffc.t  progsa.1  testff 


ItlTG 

7HD 

fcOO 

SuO 

303 


tttnntiintumtutn  run  output  fron  prog 

n.TG  -7E+902 ,  in  SEP  SF2  209 

jmnmtmimmmm  sw-rchti*-:  mm  :• 

SET  ;r.HCE  ST'Tr  G-  T  ?r.CCR!'  IM-V'.E  I 

fi.  if  -:~nn,  in  :n  rn  m 

C  Vi.'.—J 
C:  IS—* 

I.  .  .. 

CV,  ■:< 


RAM 


T tSTT r  ^ 1 1 * *•  v * t t ^ * 1 1 * *. * *  } t * $ > t 


gst ir.  nTtiumnnttmit  u?t 


TABLE  2 ,  Con; . 


COLUnlL  36  PROCESS  STRING  ••  SF2 


nntttznt  error  detected  by  subroutine  fpefor  in  record  ihage 


'l  ^  v  %  -t  *  *  ^  J’  ^  If 


FLT  C 


-7E+0C2 , 


SE2  5F2 


238 


CCLUrtH:  3fe  PROCESS  STRING-.  SF2 

ustismnmmmmnmzntznnsiwmnmtmnntmtntnnnmnzn 


COLUMN ••  43  PROCESS  STRING.  300 

. . .  •. •  *  »•  S-  ■*  *•  *t  *  <!•  'P  •< 


nnmtutttutnnnnn  output  from  program  testff  linxnztnmmztttmx* 

FLT  G 

-0.700DG0E+D3 

o.feosnnoE+03 

0.50D0GCEM3 

0 .2C00QCE<-03 

Uitntnuunumttu  Frio  output  from  program  testff  ««««»«»*«««»« 

TEXT  THREE  ScCUEMCt  STRINGS  /  HERE  IS  MO.  2  /  STEP 

tiiitwtuiumtnm-x  subroutine  frefor  diagnostic  mnmtttmttutmm 

SECIJ2i.CE  STRING.  S  RFCCRD  IMAGE  'j 


TF.-'.T 

T'rir- 

EE  SECUF.I 

ICE  ST 

Mr 

ire 

.  V  »  vJ 

/  HCP.E 

CC1  U.-:F 

1 

PROCESS 

ST  Mi 

i  r> 

:(J  • 

TF: 

:t 

CCLU.-.II 

1". 

PrTCFSS 

SIP  I; 

r> 

V> 

TM 

FE 

.S' '  :,:i 

IE 

FTT.CESS 

STM! 

:G 

StO 

.L"!  CE 

CL  U'.’! . 

r 

^  r.  r  r  »-  o  r 

n  uu. .»:» 

'  i  \  r  I  tib 

SI! 

l!'CS 

FV-  MAL'CSTIC  r  t  ? ;  *  m  sr.  mm  m  r?m  m* « t ; 


m « n  output  F-c;i  r?c sem  testff  *,? t-jsnin- r: ; * 


TEXT 

THREE 

SECCZ 

MCE 

STRU¬ 

GS 


4-  V%  *  «  ■.  -'V  -T** 
4.  ^-r  */r 

■  *  *  +  *vi  *  ■’*•*  f  *  rr;T\ 
i1  C'  i/ 

OUTPUT 

COLD'S: 

3E 

PROCESS 

STRING: 

hER:-I 

CCLUr.N: 

40 

PROCESS 

STRING: 

IS 

CCLJJrN 

43 

PROCESS 

STRING: 

MO. 

CCLli-M: 

4? 

PROCESS 

STRING: 

2 

v  V  ?  7  v  T 

*«* 

.jjV  -v«V  -  'Vi  V* 

SStit** 

« i  *  * 

L-.l 

‘ttmtmitism&utng:  output  fecn  prcgfm  testff  nmmnsmnmmsst 


HERE 

IS 

NO. 

P 


xnmtMtuiwmt :tt  eud  output  ep.cm  pres?, mi  testff  mmnttnnnnmt*. 

COLUMN-.  SI  PROCESS  STRING •■  5TC,» 

•’.Xittwtrmv.-tS'niuititnn:*  r.-.'x  diagnostic  niwntwMtttjwuutnnTt!? 


iunuui*vut*ttt%xtt  output  fhu  prcgpiW  testff  mnmtmutivnm**: 

STOP 


::ff*;tr.*'M-2jr>T;r*,r  t  n;p  CUK’.T  EF.0I1  PRC"-'  hi  PEI  IFF  Ut'UiUUUitriu: 


TE0TFr  -  r.C.(Gi  ;C1  C'.’.r,  FTn  U.UJUtUtitJt: 


tvtifiiututiiii  rr.7-M 


SECTION  4 


FLOW  DIAGRAMS 


This  section  describes  the  operation  of  program  TESTFF  and 
subroutine  FREFORM.  In  general,  the  code  breaks  down  into  a  number  of 
relatively  well-defined  algorithms.  Each  such  algorithm  is  presented  on  a 
separate  flowchart,  and  is  given  a  unique  name,  such  as  "INTEGER",  for 
example.  Then  the  use  of  this  particular  algorithm  by  other  sections  of 
the  code  would  be  indicated  by  the  symbol,  f IlNTEGERJ  1  ,  in  the  flowcharts. 

The  following  discussion  refers  to  the  flowcharts  of  TESTFF, 
shown  in  Figures  2,  3,  and  4.  At  the  beginning  of  the  program,  a  header 
is  printed.  The  major  loop  is  then  executed  until  it  is  terminated  by  the 
flag  ISTP.  Inside  the  loop,  FREFORM  is  called.  The  second  loop  (number 
2)  checks  the  data  value  in  the  first  element  of  array  VALU  against  each 
of  the  four  keywords  "INTG" ,  "FLTG" ,  "TEXT",  and  "STOP".  (The  keywords 
are  contained  in  an  array,  VWRD.)  If  a  match  occurs,  the  flag  JFLG  is  set 
to  the  current  value  of  the  loop  index,  INDX.  Following  the  loop,  a 
header  is  printed.  A  "computed  GOTO"  on  JFLG  is  then  executed  causing  a 
branch  to  one  of  four  program  blocks  which  corresponds  to  the  keyword 
matched.  Three  of  the  blocks  (corresponding  to  keywords  "INTG",  "FLTG", 
and  "TEXT")  cause  the  contents  of  VALU  to  be  printed  in  a  format  described 
by  the  keyword.  Use  of  the  variable  NFST  in  program  blocks  "INTG"  and 
"FLTG"  permits  the  keyword  to  be  printed  in  character  code  format.  The 
fourth  block  sets  the  flag  rSTP  and  causes  the  word  "STOP"  to  he  printed. 
When  the  major  loop  is  terminated,  a  footing  is  printed,  and  execution 
stops. 


'n 


CALL  FKEFOR(  VAL(J ,  NVAL ) 
NFST=1 


a=vwrd( indx) .NE.VALU( l ) 


Figure  2.  Tho  General  Structure  of  Lho  Tost  Algorithm 


A  complete  list  of  variables  and  definitions  used  in  subroutine 
PREFORM  is  presented  in  Table  3.  The  general  structure  of  FREFORM  is 
shown  in  Figure  5.  The  single  alternative  decision  block  at  line  260  is 
part  of  the  diagnostic  package.  The  rest  of  the  diagnostic  package  is 
contained  in  the  decision  block  in  Figure  6,  and  in  "DIAGN0SE1 "  and 
"DIAGN0SE2" ( Figure  7).  Note  that  "DIAGN0SE1"  is  executed  only  on  the 
first  call  to  the  subroutine. 

The  major  loop  (number  1)  in  Figure  5  is  executed  until  the  end 
of  the  current  sequence  string.  Section  2.2  describes  the  basic  steps 
which  occur  inside  this  loop.  Steps  (1)  and  (2)  mentioned  there  occur  in 
the  ''FILLSTRING’'  algorithm  (Figure  8).  The  test  described  in  Step  (3)  is 
shown  in  Figure  5  at  line  240.  Step  (4)  occurs  in  either  "NUMBER"  (Figure 
12)  or  "CHARACTER"  (Figure  19). 

Figure  8  shows  the  "FILLSTRING"  algorithm.  In  the  first  loop 
(number  2),  the  array  JCST  is  filled  with  blanks.  The  process  string  loop 
(number  3)  is  executed  until  the  process  string  is  terminated.  The 
decision  block  at  the  top  of  the  loop  fetches  a  new  record  image  when 
needed  (see  "READCARD”  in  Figure  9)  or  terminates  the  sequence  string  when 
NIPS  records  have  been  read.  Each  time  through  the  loop,  one  character 
from  the  current  record  image  is  tested  and  may  be  placed  in  the  process 
string.  Testing  and  storing  occurs  in  "TEST1"  (Figure  10)  and  "TEST2" 
(Figure  11).  Note  that  the  process  string  may  be  terminated  by  a  blank,  a 
comma,  or  a  slash,  or  by  the  test  at  line  380,  when  NCPS  characters  have 
been  read. 


The  "NUMBER"  algorithm  is  shown  in  Figure  12.  Integers,  as  well 
as  the  integer  portion  of  fixed  point  numbers  and  floating  point  number 
mantissas  are  all  processed  in  "INTEGER"  (Figure  13).  The  portion  of  any 
number  to  the  right  of  a  decimal  point  is  processed  in  "DECIMAL"  (Figure 
15)  and  stored  in  "STORDEC"  (Figure  16).  Exponents  are  processed  in 
"EXPONENT"  (Figure  17)  and  stored  in  "STOREXP"  (Figure  18).  In  "STORNFM" 
(Figure  19),  valid  processed  numbers  are  placed  in  the  VAL1J  array  and  an 
error  message  is  printed  for  incorrectly  formatted  numbers. 


TABLE  3 

VARIABLE  DEFINITIONS  FOR  FREFORM 


DFCT  -  factor  used  to  compute  DSTO 

DSTO  -  variable  to  store  decimal  portion  of  number 

ESGN  -  sign  of  exponent 

ESTO  -  variable  to  store  exponent 

EXPN  -  exponential  multiplier  for  number  processing 

IALP  -  flag  for  alphanumeric  character  string  processing 

ICIM  -  image  position  of  first  character  in  the  process  string 

ICOM  -  flag  to  detect  sequential  commas 

IERR  -  flag  to  indicate  error  in  numerical  value 

IFLD  -  flag  to  indicate  text  processing 

INDO  -  index  for  general  use 

IND1  -  index  for  general  use 

IONC  -  flag  to  indicate  first  execution  of  subroutine 
IPRO  -  flag  to  initiate  word  processing 

IRET  -  flag  to  exit  subroutine  afLer  sequence  completion 
ISTO  -  variable  to  store  integer  portion  of  number 
ISTR  -  flag  to  transfer  character  from  image  to  process  sLring 
ITST  -  flag  to  produce  system  diagnostic 

JCAE  -  ASCII  character  for  fifth  alphabetical  character,  (E) 

JCAF  -  ASCII  character  for  final  alphabetical  character,  (Z) 

JCAI  -  ASCII  character  for  initial  alphabetical  character,  (A) 
JCAS  -  ASCII  character  for  asterisk  symbol,  (*) 

JCCO  -  ASCII  character  for  comma  symbol,  (,) 

JCDP  -  ASCII  character  for  decimal  point,  (.) 

JCHA  -  current  character  in  the  record  image 
JCIM  -  array  of  characters  in  the  record  image 
JCMI  -  ASCII  character  for  minus  symbol,  (-) 

JCNF  -  ASCII  character  for  final  decimal  character,  (9) 

JCNI  -  ASCII  character  for  initial  decimal  character,  (0) 
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TABLE  3  -  continued 


JCPL  -  ASCII  character  for  plus  symbol,  (  +  ) 

JCSL  -  ASCII  character  for  slash  symbol,  (/) 

JCSP  -  ASCII  character  for  space  symbol,  (  ) 

JCST  -  array  of  characters  in  the  process  string 
JCTF  -  character  transfer  variable  in  number  processing 
JNUM  -  array  of  decoded  digits  for  number  processing 
NCCT  -  number  of  characters  counted 

NCIM  -  pointer  for  the  image  string  character  array 

NCIW  -  maximum  number  of  characters  per  integer  word 

NCLW  -  number  of  characters  in  the  last  word  processed 

NCPI  -  maximum  number  of  characters  per  image  string 

NCI’S  -  maximun  number  of  characters  per  process  string 

NCRW  -  maximum  number  of  characters  per  real  word 

NCST  -  acLual  number  of  characters  in  the  process  string 

NCTF  -  number  of  characters  transferred  in  number  processing 

NFST  -  position  of  first  character  to  be  transferred 

NIMS  -  number  of  images  processed  in  current  sequence  siring 

NIMT  -  total  number  of  record  images  processed 

NIPS  -  maximum  number  of  images  per  sequence 

NLST  -  position  of  last  character  to  be  transferred 

NPRO  -  pointer  for  the  process  string  character  array 

NSEQ  -  total  number  of  sequence  strings  processed 

NSGN  -  sign  of  number 

KVAL  -  pointer  for  the  output  array  VALU 
NWTF  -  number  of  words  transferred  in  number  processing 
RNUM  -  array  containing  decoded  digits  in  number  processing 
VALU  -  output  array  containing  processed  data 


The  "INTEGER"  and  "EXPONENT"  algorithms  have  similar 
structures.  A  decision  block  at  the  beginning  detects  an  algebraic  sign, 
and  a  counting  loop  then  determines  the  number  of  numerals  before  the  next 
non-nume r ical  character.  Note  that  the  character  which  terminates  the 
counting  loop  may  be  the  blank  which  is  appended  to  every  process  string. 
Each  of  the  numerals  counted  is  used  to  form  an  integer  value  in  "STORINT" 
or  "STOREXP". 

The  formation  of  an  integer  value  from  ASCII  characters  is 
accomplished  by  an  ENCODE/DECODE  statement  pair  and  a  small  loop,  all 
located  within  a  larger  outer  loop.  ASCII  characters  in  the  elements  of 
JCST  are  packed  into  a  temporary  variable,  JCTF,  by  the  ENCODE  statement. 
The  characters  are  then  converted  to  integer  representation  one  at  a  time, 
and  placed  in  the  elements  of  JNUM  by  the  DECODE  statement.  The  integer 
representations  in  the  elements  of  the  JNUM  array  are  multiplied  by 
decreasing  powers  of  (10)  and  summed. 

"DECIMAL"  is  similar  to  "INTEGER"  and  "EXPONENT”,  with  two 
exceptions.  First,  no  tests  are  made  for  an  algebraic  sign.  Second,  each 
of  the  numerals  counted  is  used  to  form  a  decimal  fraction.  Note  that 
"DECIMAL"  is  not  executed  unless  the  character  irrminaLing  the  counting 
loop  in  "INTEGER"  is  a  decimal  point. 

Error  analysis  occurs  in  two  places  in  the  number  processing 
algorithm.  The  first  check  occurs  after  the  integer  and  decimal  process¬ 
ing  algorithms,  at  line  450  of  "NUMBER".  A  test  is  made  Lo  determine 
whether  the  next  character  is  the  letter  "E".  If  so,  then  the  exponent  is 
processed;  if  not,  then  an  error  flag  is  set.  The  second  check  occurs  aL 
the  end  of  "EXPONENT".  Again,  a  Lest  is  made  Lo  determine  whether  the  end 
of  the  process  string  has  been  reached.  If  not,  then  an  error  flag  is 
set. 


In  the  "CHARACTER"  algorithm  (Figure  19),  every  character  in  the 
process  string  (except  the  appended  blank)  is  packed  into  the  VALU  array 
with  an  ENCODE  statement.  The  counter  NVAL  is  then  incremented  by  the 
number  of  words  stored  in  VALU. 


REPEAT  1 


A  =  (IALP.EQ.l).OR.  (JCST(D.LE.JCAF.AND.JCST(l).GE.JCAI) 


Figure  5.  The  Gonoral  Structure  of  FKEFORM. 


READCARD 


S~ 


ENTER 


320 

▼ _ 

NCIM  =  0 
NIMS  =  NIMS+1 
NIMT  =  NIMT+1 
READ  (5,10)  (JCIM(INDO), 
INDO  =  1,  NCR  I ) 


S'l [TSTN 

- 

r  .. 

WRITE  (6,20) 

WRITE  (6,120)  NSEQ ,  NIMT 
WRITE  (6,80) 

WRITE  (6,80)  (JCIM(INDO), 
1ND0=1,  NCP I 

T 


* 


Figure  9.  Obtaining  a  New  Record  Image 


33 


A  =  (JCHA.XE.JCSL) 
B  =  (JCHA. NE. JCAS ) 

c  =  (r  Fui.r.’t:.  l) 


]').  Ti'St  i  -V’.  and  Slorinv,  (.liar.mt 


INTEGER 


Figure  13.  Processing  Integer  Portion. 
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STORDEC 
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REPEATS  REPEAT9 


Figure  IS.  Storing  tin-  Decimal  Portion. 

\\ 

4  1 
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Figure  18.  Storing  the  Exponent  Portion. 


V  ALU ( N VAL )  =  1 H 
WRITE (6, 80) 

WRITK(6 , 80) 

WRITE(6,80) 

WRITE (6, 70)  NLMT 
WRITE(6, 80)  (JCIM(INDO), 
IND0=1 ,NCPI ) 
WRITE(6,90)  ICIM , (JCST 
(INDO ) ,  IN'D0=1  >  NCPS  ) 
WRITE(6, 100) 


NCTK=NCRW*  (  1  +(:;cr»T- 1  )  /N’CRW  ) 

ENCODE ( S' CT I' ,  I  0,  VAL(I(NVAL+1  )  )  ( JCST(  I  NDO ) ,  I  NT)0=1 ,  MOST) 
1!VAE=S'VAE+1  +(\’CST- 1  )  /NCRW 


VALU(NVAL)=KSGN* 
(FLOAT(ISTO)+DSTO) 
*10. **(ESGN*ESTO) 


SECTION  5 
FORTRAN  LISTING 


This  section  presents  FORTRAN  listings  for  the  program,  TESTFF, 
and  the  subroutine,  FREFORM,  exactly  as  implemented  on  the  DEC-10 
computer. 


I 


» 


I 


non  n 


PROGRAM  TESTFF 


C 

C  ***********  VALIDATES  PERFORMANCE  OF  SUBROUTINE  FREFOR  *********** 
G 

C  THE  PURPOSE  OF  PROGRAM  TESTFF  IS  TO  VALIDATE  THE  PERFORMANCE  OF 
C  SUBROUTINE  FREFOR.  TESTFF  ALLOCS  DATA  TO  EE  SENT  TO  FREFOR, 

C  AND  PRINTS  THE  VALUES  RETURNED.  ALL  OF  THE  VALUES  RETURNED  FROM 
C  EACH  SEQUENCE  STRING  ARE  PRINTED  ACCORDING  TO  THE  SAME  FORMAT 

C  SPECIF! CAT  ON .  THIS  IMPOSES  ONE  RESTRICTION  ON  THE  NORMAL  OPERATION 

C  OF  SUBROUTINE  FREFOR:  ALL  OF  THE  VALUES  RETURNED  FROM  EACH 
C  SEQUENCE  STRING  MUST  BE  OF  THE  SAME  DATA  TYPE. 

C 

C  THE  TYPE  MUST  BE  SPECIFIED  BY  THE  USER  BY  A  KEYWORD  AT  THE 

C  BEGINNING  OF  EACH  SEQUENCE  STRING.  IF  THE  DATA  TYPE  IS  NOT 

C  SPECIFIED  IN  THE  FIRST  SEQUENCE  STRING,  PROGRAM  EXECUTION  IS 
TERMINATED.  ONCE  A  DATA  TTPE  HAS  BEEN  SPECIFIED,  ALL  SEQUENCE 
STRINGS  ARE  ASSUMED  TO  BE  OF  THAT  TYPE  UNTIL  A  NEW  TYPE  IS 
SPECIFIED.  THREE  DATA  TYPE  KEYWORDS  ARE  RECOGNIZED:  "INTO" 

(FOR  INTEGER  VALUES),  "FLTG“  (FOR  FLOATING  POINT  AND  FIXED  POINT 
C  VALUES),  AND  "TEVT"  (FOR  ASCII  CHARACTER  STRINGS). 

C 

C  NUMERICAL  FORMAT  SPECIFICATIONS  IN  PROGRAM  TESTFF  MATCH  THE  RANGE 
C  OF  VALUES  ACCEPTED  BY  SUBROUTINE  FREFOR.  THE  TEXT  FORMAT 
C  SPECIFICATION  IN  TESTFF  WILL  ACCOMODATE  10  ASCII  CHARACTERS,  BUT 
C  THE  MAXIMUM  LENGTH  OF  TEXT  STRINGS  RETURNED  BY  SUBROUTINE  FREFOR 

C  IS  DETERMINED  BY  THE  WORD  LENGTH  AND  NUMBER  OF  BITS  PER  CHARACTER 

C  OF  THE  SYSTEM  BEING  USED. 

C 

C  PROGRAM  EXECUTION  IS  TERMINATED  BY  THE  KEYWORD  "STOP",  WHICH 
C  MUST  OCCUR  A1  THE  BEGINNING  OF  A  SEQUENCE  STRING.  ANY  DATA 

C  FOLLOWING  THE  WORD  "STOP*  WILL  NOT  BE  PRINTED  BY  PROGRAM  TESTFF. 

C 

c 

c 

c  mn**»*m**mmm  format  definitions  mmmmmum*** 

g 

10  FORMAK/IX ,RA(  1H*)  ,31H  PROGRAM  TESTFF  -  MARCH  1901  ,2S(1H*)//) 

00  FORMAT (/IX, ,?£(!!)*>  .259  OUTPUT  FROM  PROGRAM  TESTFF  ,2o(lH*)) 

30  FC?.MA!(/1X,24(1H«),3SH  END  CUT  PUT  FROM  PROGRAM  TEGTFF  ,24(19*1) 

AO  FORMAT (IX, 110) 

SO  FORMAT' IX, El  A  fc) 

GO  FERMAT (IX .AID ) 

71  FO?MAT(/lX,2T'li't),ACH  P5CGPAM  TESTFF  - 
1  E'OtlH*),') 


EXECUTION  COMPLETED 


c 

c 

REAL  VALU(SO)  ,Vl!RD(4) 

C 

DATA  VURD/4HINTG  ,-5HFLTG,4HTEXT  .4HSTGP/ 

DATA  EURD/1H  / 

C 

C  INITIALIZE  I/O  UNIT  b  TO  TERMINAL. 

OPEN(UNIT=fc,  DEVICE='TTY') 

C 

C  PRINT  PROGRAM  HEADER.  INITIALIZE  FLAGS. 

WRITE (6, 10) 

JFLG=4 

ISTP-fl 

C 

c  tnnmnnnnnn  loop  until  stop  requested  mnmnnmm * 

r, 

80  CALL  FREFOR  <VALU,NVAL) 

NFST=i 

C 

c  test  first  value  for  keyword,  set  jflg. 

DO90INDX=l  ,4 

IF ( VWRD( INDX) . HE . VALLK  i ) ) GOTO90 
JFLG=INDX 
NFST =2 
90  CONTINUE 
C 

C  PRINT  OUTPUT  HEADER,  THEN  BRANCH  TO  PRINT  VALUES . 

WR ITE(6 ,20 ) 

GOTCK 100, 110,120,130) JFLG 
C 

C  INTEGER  PROCESSING. 

C 

C  PRINT  KEYWORD  IN  CHARACTER  FORMAT. 

100  IRWFST  EQ.DGOTOiOS 

WRITE  <6,60  > VALLK  1 ) 

C 

C  PRINT  VALUES  IN  INTEGER  FORMAT. 

10S  IF(NVAL.LT.NFST)GGTOH0 

DO109INDX=NFST .NVAL 
IF(VALU< INDX)  NE. I:JRD)GOTO103 
URITE<6,60m!RD 
GOTO  U  9 

1C8  INTG=VALU( INDX) 

WRI7c(6,40)INTG 
10?  CONTINUE 
GOT  0  L  0 


C 


c 

c 

c 


FLOATING  POINT  NUMBER  PROCESSING . 


PRINT  KEYWORD  IN  CHARACTER  FORMAT. 

110  IF (NFST ,EQ . 1 ) GOTO! 12 
URITE(6,6G)VALU(i) 

C 

C  PRINT  VALUES  IN  FLOATING  POINT  FORMAT 

112  IFUWAL.LT. NFST)GOTGi4D 
DO  i  1 9IJ1DX=NFST  ,NVA'l 

IF <  VALU <  INDX ) .  NE .  ENVRD > GOTO!  1 B 
WRITER, 6G)BURD 
GOT 0119 

113  URITE(f>,SO)VALUUHDX) 

119  CONTINUE 
GOTO! 40 

C 

C  TEXT  PROCESSING. 

C 

C  PRINT  VALUES  IN  CHARACTER  FORMAT. 

120  UR  IT  E  Cf> ,  GO  K  VALU  ( I NDX ) ,  I  NDX=1 ,  NV.TL ) 
GOTO i 40 

C 

C  TERMINATE  PROGRAM  EXECUTION. 


C 

C  PRINT  "STOP*,  SET  ISTP. 

130  !JRITE<6,6Q)VyRD<4> 

ISTP=i 

C 

C  PRINT  OUTPUT  FOOTING,  TEST  ISTP  TO  CONTINUE. 
140  WRITE ( fc ,30 ) 

IF (ISTP .EQ,0)GQT080 


C 

C 

C 


PRINT  PROGRAM  FOOTING. 
UR1TE(6,?0) 


SUBROUTINE  FREFGR  (VALU.NVAL) 


C 

c  *********  processes  fsee-forkat  data  to  internal  format  mtnxnt 
c 

C  SUBROUTINE  FREFOR  IS  DESIGNED  TO  PROCESS  FREE-FORMAT  DATA  UHICH 
C  IS  OBTAINED  FROM  AN  EXTERNAL  RECORD,  FOR  EXAMPLE,  A  CARD  READER 

C  OS  AN  INTERACTIVE  CONSOLE.  THE  DATA  MUST  CONSIST  OF  A  STRING 

C  OF  ASCII  CHARACTERS,  INCLUDING  THE  DELIMITERS,  SPACE!  ),  COMMA!,), 

C  ASTERISK (i) ,  AND  SLASH!/).  FREFOR  INTERPRETS  DATA  SEQUENTIALLY 

C  ACCORDING  TO  ITS  INTERNAL  FORMAT,  AND  STORES  INTERNAL  VALUES  IN 
C  AN  ARRAY  (VALU).  FOUR  TYPES  OF  VALUES  ARE  RECOGNIZED. 

C 

C  (1)  NUMERICAL  CONSTANT  -  RATIONAL  NUMBER  CONSTANTS  ARE 
C  RECOGNIZED  IN  FIXED,  FLOATING,  AND  EXPONENTIAL  FORMATS 
C  (EXAMPLES  -  143,  3.14159,  l.E-07).  VALUES  MUST  BE 

C  SEPARATED  BY  SPACE  OR  COMMA  DELIMITERS.  NOS, ’ESSENTIAL 

C  CHARACTERS  'JILL  BE  AUTOMATICALLY  SUPPLIED  DURING 
C  INTERPRETATION  (THUS,  FOR  EXAMPLE,  IE-7  AND  i.OE-97  DILL 

C  BE  INTERPRETED  IDENTICALLY).  THE  NUMBER  GF  CHARACTERS 

C  DEVOTED  TO  A  SINGLE  CONSTANT  IS  LIMITED  TO  NCPS  (DEFINED  IN  A 
C  DATA  STATEMENT). 

C 

C  (2)  ALPHANUMERIC  CONSTANT  -  ALPHANUMERIC  CONSTANTS  ARE 
C  RECOGNIZED  BY  THE  FIRST  CHARACTER,  WHICH  MUST  BE 
C  ALPHABETICAL.  SUCCEEDING  CHARACTERS  MAY  BE  ALPHABETICAL , 

C  NUMERICAL,  OR  ANY  ASCII  SPECIAL  CHARACTER  OTHER  THAN  SLASH 

C  OR  ASTERISK  (EXAMPLES  -  A123,  Z44S,  START).  VALUES 

r.  MUST  BE  SEPARATED  BY  SPACE  OR  COMMA  DELIMITERS.  THE 

C  NUMBER  OF  CHARACTERS  DEVOTED  TO  A  SINGLE  CONSTANT  IS 

C  LIMITED  TO  NCPS. 

C 

C  (3)  NULL  VALUE  -  A  NULL  VALUE  IS  CREATED  BY  RECOGNITION  OP 
C  SUCCESSIVE  COMMAS,  UITB  NO  INTERVENING  CHARACTERS. 

C  (BLANKS,  OR  SPACES,  BETWEEN  ADJACENT  COMMAS  WILL  PE 
C  IGNORED  FOR  EXAMPLE,  THE  CHARACTER  STRING  (,  ,,)  WILL 

C  PRODUCE  TWO  NULL  VALUES.) 

C 

C  (4)  TEXT  -  ANY  CHARACTER  STRING  DELIMITED  BY  TWO  ASTERISKS 

C  (AT  BEGINNING  AND  END)  WILL  BE  RECOGNIZED  AS  TEXT,  AND  WILL 

C  BE  RETAINED  INTACT  WITH  EMBEDDED  SPACES,  COMMAS,  AND  ALL 

C  ASCII  CHARACTERS  EXCEPT  THE  SLASH  AND  ASTERISK  THE 

C  TEXT  NILE  BE  CODED  IN  AS  MANY  VALUES  AS  ARE  REQUIRED  TO 

C  PROCESS  THE  STRING. 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r, 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


THE  OPERATION  OF  FREFOR  RELIES  UPON  DEFINITION  OF  FOUR  TYPES 
OF  CHARACTER  STRINGS,  EACH  IN  GENERAL  CONTAINING  A  DIFFERENT 
NUMBER  CF  CHARACTERS.  THE  RELATIONSHIPS  BETWEEN  THE  FOUR  TYPES 
Or  CHARACTER  STRINGS  ARE  AS  FOLLOWS. 

(1)  RF.CCRD  STRING  -  THIS  IS  THE  COMPLETE  SET  OF  ALL 
SEQUENCE  STRINGS  TO  BE  PROCESSED  THROUGH  SEQUENTIAL 
EXECUTIONS  OF  FREFOR. 

(2)  SEQUENCE  STRING  -  WITHIN  THE  RECORD  STRING  HAY  EXIST 
ANY  NUMBER.  OF  SEQUENCE  STRINGS,  DELIMITED  BY  A  SLASH 

AT  THE  TRAILING  END.  NO  DELIMITER  IS  REQUIRED  IF  THE 
SEQUENCE  STRING  IS  LIMITED  BY  THE  SPECIFIED  NUMBER  OF 
RECORD  I PAGES  (NIPS).  OTHERWISE,  THERE  MAY  BE  ANY 
NUMBER  OF  IMAGES  PER  SEQUENCE  STRING. 

(3)  RECORD  IMAGE  -  THIS  IS  THE  CHARACTER  STRING  WHICH 
EXISTS  ON  A  SINGLE  IMAGE.  FOR  EXAMPLE ,  AN  IMAGE  MIGHT 
CONSIST  OF  A  FORTRAN  CARD,  IN  WHICH  CASE  THE  RECORD 
IMAGE  CONSISTS  OF  OQ  CHARACTERS. 


(4)  PROCESS  STRING  -  THIS  IS  AN  INTERNAL  CHARACTER 
STRING  USED  IN  FREFOR  TO  PROCESS  DELIMITED  DATA. 

THE  LENGTH  OF  THE  STRING  IS  SPECIFIED  BY  NCPS,  WHICH 
MUST  BE  AN  INTEGER  MULTIPLE  OF  THE  NUMBER  OF  ASCII 
CHARACTERS  WHICH  CAN  BE  STORED  IN  A  SINGLE  MACHINE 
WORD .  IN  EFFECT,  THE  PROCESS  STRING  LIMITS  THE 
LENGTH  CF  ALPHANUMERIC  CONSTANTS  AND  THE  ACCURACY  OF 
NUMERICAL  CONSTANTS. 


SUBROUTINE  FREFOR  RECOGNIZES  INCORRECTLY  FORMATTED  NUMBERS  AND 
PRINTS  AN  ERROR  DIAGNOSTIC.  TWO  ERRORS  ARE  RECOGNIZED. 

(1)  SYNTAX  ERROR  IN  THE  MANTISSA  -  ANY  STRING  (EXCLUDING  TEXT 
DELIMITED  BY  ASTERISKS)  BEGINNING  WITH  A  NON ALPHABETICAL 
CHARACTER  IS  ASSUMED  TO  BE  A  NUMERICAL  CONSTANT.  IF  THIS 
CONSTANT  CANNOT  BE  INTERPRETED,  A  SYNTAX  ERROR  RESULTS. 
(EXAMPLES:  2S . 00F+U2 , i  +15,  QSTRING) 

(2)  SYNTAX  ERROR  IN  THE  EXPONENT  -  THE  EXPONENT  OF  A  NUMERICAL 
CONSTANT  MUST  BE  AN  INTEGER  VALUE.  (IT  MAY  INCLUDE  AN 
ALGEBRAIC  SIGN)  IF  AN  EXPONENT  CANNOT  BF.  INTERPRETED  A 
SYNTAX  ERROR  RESULTS  (EXAMPLES.  2E2 . ,  2EE3,  2E- I ) 

THE  PROCESSING  CF  DATA  BY  SUBROUTINE  FREFOR  OCCURS  IN  FOUR 
MAJOR  STEPS. 

'1;  A  PECCPD  IMAGE  IS  READ  INTO  AN  INTEGER 


APR  At  ,  JCIM. 


C  ONE  CHARACTER  IS  PLACED  IN  EACH  ARRAY  ELEMENT .  A  NE'I 
C  RECORD  IMAGE  IS  OBTAINED  WHEN  ALL  OF  THE  CHARACTERS  ON 
C  THE  PREVIOUS  IMAGE  HAVE  BEEN  INTERPRETED. 

C 

C  (2)  EACH  CHARACTER  IN  JCIM  IS  TESTED  AGAINST  EACH  OF  THE 

C  FOUR  STRING  DELIMITERS  AND  THEN  STORED  IN  AN  INTEGER  ARRAY, 

C  JCST,  WHICH  CONTAINS  THE  PROCESS  STRING.  ONE  CHARACTER  IS 

C  STORED  IN  EACH  ARRAY  ELEMENT.  WHEN  A  DELIMITER  IS  DETECTED, 

C  TESTING  STOPS  AND  PROCESSING  IS  INITIATED. 

C 

C  (3)  A  TEST  IS  HADE  TO  DETERMINE  WHETHER  THE  PROCESS  STRING 
C  CONTAINED  IN  JCST  IS  A  NUMERICAL  VALUE  OR  AN  ALPHANUMERIC 
C  CHARACTER  STRING. 

C 

C  (4)  THE  CONTENTS  OF  JCST  ARE  INTERPRETED  AND  THEN  STORED  IN 
C  THE  ARRAY  VALU  BY  EITHER  A  NUMBER  DECODING  ALGORITHM  OR  A 

C  CHARACTER  STRING  PACKING  ALGORITHM,  ACCORDING  TO  THE  RESULT 

C  OF  THE  TEST.  THE  ARRAY  VALU  IS  RETURNED  TO  THE  CALLING 

C  PROGRAM  UNIT  WHEN  THE  ENTIRE  SEOUENCE  STRING  HAS  BEEN  READ, 

C  TRANSLATED  AND  STORED. 

C 

C  SUBROUTINE  FREFOR  CONTAINS  A  SYSTEM  DIAGNOSTIC  MODE.  IT  IS 

C  SELECTED  BY  SPECIFYING  ITST=i.  THE  DIAGNOSTIC  MODE  CAUSES  A 

C  LISTING  CF  THE  SYSTEM-DEPENDENT  PARAMETERS  AND  ASCII  CHARACTER 

C  VARIABLES  TQ  EE  PRINTED  ON  THE  FIRST  CALL.  SUBSEQUENTLY,  ALL 
C  RECORD  IMAGES  AND  PROCESS  STRINGS  WILL  BE  PRINTED  PRIOR  TO 
C  TRANSLATION. 

C 

C 

c  mtttttmmtnnm  variable  definitions  mmmnnmmm 

c 

C  DFCT  -  FACTOR  USED  TO  COMPUTE  D3T0. 

C  DSTO  -  VARIABLE  TO  STORE  DECIMAL  PORTION  OF  NUMBER. 

C  ESGN  -  SIGN  OF  EXPONENT. 

C  ESTG  -  VARIABLE  TO  STORE  EXPONENT. 

C  EXP fl  -  EXPONENTIAL  MULTIPLIER  FOR  NUMBER  PROCESSING. 

C  I  ALP  -  FLAG  FOR  ALPHANUMERIC  CHARACTER  STRING  PROCESSING. 

C  ICIM  -  IMAGE  POSITION  OF  FIRST  CHARACTER  IN  THE  PROCESS  STRING. 

C  I COM  -  FLAG  TO  DETECT  SECUENTIAL  COMMAS . 

C  I  ERR  -  FLAG  TO  INDICATE  ERROR  It!  NUMERICAL  VALUE. 

C  IFLD  -  FLAG  TO  INDICATE  TEXT  PROCESSING. 

C  INDO  -  INDEX  FOR  GENERAL  USE. 

C  INDl  -  INDEX  FOR  GENERAL  USE. 

C  ICNC  -  FLAG  TO  INDICATE  FIRST  EXECUTION  OF  SUBROUTINE. 

C  IPPO  •  FLAG  TO  INITIATE  WORD  PROCESSING. 

C  IRF.T  -  FLAG  TO  EXIT  SUBROUTINE  AFTER  SEOUENCE  COMPLETION. 

C  ISTG  -  VARIABLE  TO  STORE  INTEGER  PORTION  OF  NUMBER 

C  1ST?  -  FLAG  TO  TRANSFER  CHARACTER  FROM  IMAGE  10  PROCESS  STRING 


V  i 


» 


► 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

r 

r « 

Lr 

C 

c 

c 

c 

c 

n 

c 

c 

c 

c 

c 

c 


1TST  -  FLAG  TO  PRODUCE  SYSTEM  DIAGNOSTIC. 

JCAE  -  ASCII  CHARACTER  FOR  FIFTH  ALPHABETICAL  CHARACTER,  (E). 

JCAF  -  ASCII  CHARACTER  FOR  FINAL  ALPHABETICAL  CHARACTER ,  (7). 

JCAI  -  ASCII  CHARACTER  FOR  INITIAL  ALPHABETICAL  CHARACTER,  (A). 
JCAS  -  ASCII  CHARACTER  FOR  ASTERISK  SYMBOL,  ( • » ) . 

JCCO  -  ASCII  CHARACTER  FOR  COMMA  SYMBOL,  (,). 

0 CD?  -  ASCII  CHARACTER  FOR  DECIMAL  POINT,  (.) 

JCHA  -  CURRENT  CHARACTER  IN  THE  RECORD  IMAGE. 

JCI.i  -  ARRAY  OF  CHARACTERS  IN  THE  RECORD  IMAGE . 

JCMI  -  ASCII  CHARACTER  FOR  MINUS  SYMBOL,  (-) . 

JCNF  -  ASCII  CHARACTER  FOR  FINAL  DECIMAL  CHARACTER,  (V). 

J  CM  I  -  ASCII  CHARACTER  FOR  INITIAL  DF.C1MAL  CHARACTER,  (0). 

JCFL  -  ASCII  CHARACTER  FOR  PLUS  SYMBOL,  (+). 

JCSL  -  ASCII  CHARACTER  FOR  SLASH  SYMBOL,  (/). 

JCSP  -  ASCII  CHARACTER  FOR  SPACE  SYMBOL ,  (  ). 

JCST  -  ARRAY  OF  CHARACTERS  IN  THE  PROCESS  STRING. 

JCTF  -  CHARACTER  TRANSFER  VARIABLE  IN  NUMBER  PROCESSING . 

JNUM  -  ARRAY  OF  DECODED  DIGITS  If!  NUMBER  PROCESSING. 

NCCT  -  NUMBER  OF  CHARACTERS  COUNTED. 

NC5M  -  POINTER  FOR  THE  IMAGE  STRING  CHARACTER  ARRAY. 

NCIU  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  INTEGER  UORO. 

NCLU  -  NUMBER  OF  CHARACTERS  IN  THE  LAST  WORD  PROCESSED. 

NOP  I  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  IMAGE  STRING. 

NCPS  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  PPOCESS  STRING. 

NCRM  -  MAXIMUM  NUMBER  OF  CHARACTERS  PER  REAL  UORD . 

HOST  -  ACTUAL  NUMBER  OF  CHARACTERS  IN  THE  PROCESS  STRING. 

ItCTF  -  NUMBER  OF  CHARACTERS  TRANSFERRED  BY  ENCODE /DECODE. 

OF ST  -  POSITION  OF  FIRST  CHARACTER  TO  BE  TRANSFERRED. 

MIMS  -  NUMBER  OF  IMAGES  PROCESSED  IN  CURRENT  SEQUENCE  STRING. 
NIMT  -  TOTAL  NUMBER  OF  RECORD  IMAGES  PROCESSED . 

NIPS  -  MAXIMUM  NUMBER  OF  IMAGES  PER  SEQUENCE. 

NLST  -  POSITION  OF  LAST  CHARACTER  TO  BE  TRANSFERRED 
NPRO  -  POINTER  FOR  THE  PPOCESS  STRING  CHARACTER  ARRAY . 

NSEO  -  TOTAL  NUMBER  OF  SEQUENCE  STRINGS  FR0CE3SED. 

NcGN  -  SIGN.  OF  NUMBER. 


AVAL 

NOTE 

RtIUM 


POINTER  FOR  THE  OUTPUT  ARRAY  VALU. 

NUMBER  OF  CORDS  TRANSFERRED  BY  ENCODE/DECODF . 

ARRAY  CONTAINING  DECODED  DIGITS  IN  NUMBER  PROCESSING. 


VALU  -  OUT  FIJI  ARRAY  CONTAINING  PROCESSED  DATA 


INTEGER  EBGN,  EST0  .JCIM(. JCST  (2J) ,  J.THMY  if) 
REAL  RNUM()b) .VALO(Sj) 


lata  i< i n t / c / , i lnc 


/ jNEEC/O/ 


I 


oj  ro 


c 

c 


mtmntmmm  systoi-dep ehdejit  parameters  tmnmmnun 

DATA  Nr.Itl/5/)NCRU/5/>MCPI/a0/JWCPS/20/,«IPS/i/ 

c 

c 

c 

c  utmninnnttut  ascii  character  variables  mmmmmm* 

i; 

DATA  JCAE/iHE/ , JCAF/iHZ/, JCAI/iHA/ , JCAS/iHS/ , JCCD/iH , / , JCDP/iH .  / , 
i  JCMI/HW,  JCNF/1H9/,  JCNI/1HQ/,  JCPL/1H+/,  JCSL/1H//,  JCSP/iH  / 

C 

C 

C 

c  ttnttttttntnttntttt*  diagnostic  switch  %t%nmtxt*unt%t%tn* 

c 

data  itst/i/ 
c 
c 
c 

c  %t%%%M%nt%%n%u%nn  format  definitions  unnn%%ntu%nt%%%% 

i; 

10  FORMAT ( 80Ai ) 

0  FORHAT(/iX,25(lH*),30H  SUBROUTINE  FP.EFDR  DIAGNOSTIC  ,2S(iKH) 

0  FORMAT (iX,20H  ASCII  CHARACTER  VARIABLES/) 

-10  FORMAT < IX , SK  JCAE , 4X , 4HJCAF,4X , 4HJCAI ,4X, 4HJCA3 , 
l  4X,4HJCCO,4X,4HJCDP/ 

i  4H  ,Ai ,5(7X,Ai)/) 

50  FORMAT ( IX, 5M  JCMI,4X,4HJCNF,4X,4HJCNI,4X,4HJCPL, 

1  4X , 4HJCSL , IX , 4H JCSP / 

1  4H  , A 1  ,S(7X,Ai)/) 

55  FORMAT (iX,28H  SYSTEM-DEPENDENT  PARAMETERS/) 

60  FORMAT! IX, 5H  NCUI,4X,4HKCRW,4X,4HNCPI,4X,4HNCPS,4X,4HNIPS/ 

1  3H  ,I2,4!6X,I2)) 

75  F0RUAT(lX,il(iH*),3SH  ERROR  DETECTED  BY  SUBROUTINE  FREFOR, 
i  17H  IN  RECORD  IMAGE  ,I4,1X,11<1H*>) 

SO  FORMAT (iX.OOAl) 

90  FORMAT! IX, OH  COLUMN-.  ,13, 2X,16HPPOCES5  STRING:  ,20At) 

ICO  FORMAT (IX ,80! 1H*)///) 

HO  rOPrt.iT(/iX,3?(iH*),i6U  END  DIAGNOSTIC  ,32(iHi>) 

120  F  OF  MAT  (IX,  17H  SEQUENCE  STRING. ,  I4,?X,  lSHFECCRD  IMAGE--  ,14) 

130  FORMAT  OGIl) 

140  FORMAT f  1 UF 1 . 0 ) 

155  FORMAT ( 1 3A1 ) 

C 

c 

c 

c  tmimitm  begin  ppr-r,F5oiNs  a  nF'i  tf.gl'Ln'.e  sir- In" 


c 

C  INITIALIZE  I/O  UNIT  6  TO  TERMINAL. 

OPEN ( UNIT =6 f  DEVICE='TTY' ) 

C 

C  THIS  SECTION  FIRST  TIME  ONLY. 

C 

IF (IONC.NE. 0)COTO2OQ 
C 

C  INITIALIZE  FLAGS  FOR  FIRST  CALL. 

IONC-l 
NCIM=NCP I 
C 

C  DIAGNOSTIC:  ASCII  CHARACTER  VARIABLES 

C  SYSTEM  DEPENDENT  PARAMETERS. 

IF(ITST.EQ.O)GOT0200 

WRITE(6I20) 

WRITE(fc,3Q) 

WRITE ( fc , 40 ) JCAE , JCAF , JCAI , JCAS , JCCO , JCDP 
URITE(6,50) JCMI ,  JCNF, JCNI , JCPL, JCSL, JCSP 
WRITE  ( f> ,  S5) 

WRITE(fa,fcO  )NCII!  ,NCRU  ,NCPI  ,!iCPS,NIPS 
WRITE  (i, 110) 

C 

C  INITIALIZE  VARIABLES  FOR  NEW  SEQUENCE  STRING. 

i; 

200  IF (NCIrt.EQ.NCPI)NIMS=0 
IFLD=0 
I R  ET = G 
NVAL'O 
I  CO, 1=0 
NSEG=NSEQ+i 
C 
C 
C 

c  mmumn-m  loop  until  end  of  sequence  string  mumnnui 

c 

213  IF(IF:ET.EQ.i)GQT02BO 
C 

C  LOAD  PEOCESS  STRING  ARRAY  ELEMENTS  WITH  BLANKS 
C 

DO220IND0=i,NCPS 
220  JCST  ( I.'ilni )  -1H 
C 

C  INITIALIZE  VARIABLES  FOR  NEW  PROCESS  STRING 
C 

HCST=0 

I.'LP-O 

IPPO-O 


.  1 


nmnnmtm  loop  until  end  of  process  string  mmmtmtn 


f 

I 


c 
c 
c 
c 

i; 

313  IF(IPR0  EQ.DGOT0230 
C 

C  GET  A  CHARACTER  FRCct  THE  RECORD  IMAGE. 

C 

IF<NCIM.N£.NCPI)GQT033G 

IF(NIM3.LT.NIPS)GOT0320 

C 

C  MAXIMUM  IMAGE  NUMBER  EXCEEDED.  TERMINATE  SEQUENCE. 

JCIM(NCPI>=JCSL 

NCIM=NCPI-i 

GQT033D 

C 

C  END  OF  IMAGE  ENCOUNTERED.  READ  A  NEW  RECORD  IMAGE. 

320  NIC  1.1=0 
NIMS=N1MB+1 
NIMT=NIrlT+i 

READ(5,iB)  ( JCIM(IMDO)  ,IND0=i,f!CPI) 

C 

C  DIAGNOSTIC:  PRINT  RECORD  IMAGE. 

IF ( ITST.EQ. 0  >GOTO330 
WR ITE (6,20) 

WRITE(6,i20)HSEQ,NlMT 
WT?  ITE  (6,30) 

URITE(6,S0)( JCIM(INDO) ,IND0=i,NCPI) 

C 

C  INITIALIZE  VARIABLES  FOR  CHARACTER  COMPARISON  TESTS. 

C 

330  IPFO=i 
13TR-0 
NC1M=NCIM+1 
JCHA=JCTM(NCIM) 

C 

C  TEST  CHARACTER  AGAINST  DELIMITERS  WHICH  TERMINATE  PROCESS  STRING. 

i; 

C  TEST  FOP  SLASH  DELIMITER,  </) 

IFUCHA  NE.JCSL) GOT H340 
IPET=1 
GOT 03 10 
C 

0  TEST  FOR  ASTERISK  IF.LIMITER ,  («> 

340  IFUCHA  NE  JCASH,37C3S(I 
IFUFLI  !  E  .  1  i 0070343 


GOT  031 0 
345  IFLD=i 
GOT  03 i 0 
C 

C  TEST  FOR  COMMA  DELIMITER,  (,). 

350  IF ( . NOT . ( JCKA . EO . JCCO . AND . IFLD . EQ . 0 ) )COTO360 
IFdCOM.NE.i  )G0T0355 
IALPri 
ISTR=i 
JCHA=iH 
GOT0370 
355  ICCM=1 
GOT0310 
C 

C  TEST  FOR  SPACE  DELIMITER,  (  ). 

3L0  IFUCHA.EQ. JCSP. AND. IFLD. EQ.G)GOT03iO 
IPRO=0 
I  ALP  "IFLD 
ISTR=1 
ICCii'-O 
C 

C  STGRE  CHARACTER  IN  PROCESS  STRING. 

370  IF(ISTR . NE. 1 ) GOT 0330 
NCST=NDST+i 
JCST(HCST)=JCHA 
C 

C  TEST  NUMBER  OF  CHARACTERS  STORED  IN  PROCESS  STRING. 

330  I F ( NCST . LT . NCPS ) CO  T031 0 
IP  RO=i 
GOT0310 
C 
C 
C 

c  mxntnuututt  translate  the  process  string 

c 

C  TEST  FOR  EMPTY  PROCESS  STRING,  BYPASS  TRANSLATION. 

230  IF (NCST . ED .0 ) GOT0210 
C 

C  DIAGNOSTIC:  PRINT  PROCESS  STRING. 

IF( ITST . EO. Q)GOTO240 
ICIM-NCIM-NCST 

LSI TE! A  ,90) ICIM, ( JCST ( INDO) , INOO'i ,NCPSi 
C 

C  TEST  FO9  NUMBER  PROCESSING  OR  CHARACTER  STRING  PPOCFSSING 
240  IF ( (IALP  EQ.  1)  GP.  (JCST(l)  ,LE.  JCAF  AND  JCST(l)  Gl.JCAI)/ 

1  GOT OS 00 


c 

c  number  processing 

ij 

c 

C  INITIALIZE  VARIABLES. 

400  IERS=0 
NFST=1 
NPRO^i 

1CIM=NCIM-NCST 
ISTO=0 
ESIO=0 
DST0=G . 

DFCT=i 

E3GN~1 

NSGN=1 

C 

C  PROCESS  INTEGER  PORTION. 

C 

C  TEST  FOR  MINUS  SIGN. 

I F  ( JCST  ( NP  RO ) .  NE .  JCfil )  GOT04 1 0 
NPRO=NPRO+i 
NSGN=-1 
NFST-KPRO 
GOT  0420 
C 

C  TEST  FOP.  PLUS  SIGN. 

410  IF ( JCST ( KPRO ) . NE . JCPL  > GOT042 0 
NPPO=N?RO+l 
NFST=NPP,0 
C 

C  DETERMINE  LENGTH  OF  INTEGER  PORTION. 

420  IF ( .NOT. (JCST(NPRO) .LE.JCNF. AND. JCST (NPRO) .GE. JCNI))GOT0423 
NPRQ=NPEO+i 
GOT 0420 
C 

C  STORE  INTEGER  PORTION. 

423  «CCT=NPRO-NFST 

IF (NCCT . EO . 0 )GOTO430 
NNTF-l  +  dtCCT-l  )/NCIU 
NCL«=NCCT-NCIM*(NUTF-i) 

DO424JND0=l ,NUTF 

NCTF=NCrJ-(NCIll-NCLU)*(INDO/NWTF) 

NLSI^riFSHNCTF-1 

ENCODE (NCTF  ,150  ,  JCTr )  ( JCST UND1 ) ,  IHDl-NfST , WLST ) 

DECODE  ( CCTr ,  130 ,  JCTT )  ( JNIJ.K  HUM ) ,  IfIDi  - 1  ,NC  IF ) 

NF  t  T = N 1. 3  T  *1 
D3424IN[>lrl  ,NCTF 

EXPN-1  0**(*,OCT-IrtI/l-NCI!!*(  I.ND0-! ) ) 


C'i  try 


ISTO=ISTO+MJH(INDi)*EXPN 
424  CONTINUE 
C 

C  PROCESS  DECIMAL  PORTION. 

C 

C  TEST  FOP,  DECIMAL  POINT . 

■120  IF  ( JC3T  (NPRO) .  NE .  JCDP )  GOTO  ISO 
NPRO-NPRO+1 
NFST=K?RQ 
C 

C  DETERMINE  LENGTH  OF  DECIMAL  PORTION. 

440  IF ( .NOT . (JCST (NPRO) .LE  JCNF .AND. JCST (NPRO)  . GE.JCNI ) )G0T0442 
NPRO=N?RO+l 
GOT  0440 
C 

C  STORE  DECIMAL  PORTION. 

442  NCCT=NPRO-NFST 

IF(NCCT.EO.O)GOT04SO 
NUTF=i+(NCCT-i)/KCIU 
NCLW=NCCT-NCIW* ( NWTF- i ) 

D0444INDO=1 ,NUTF 

NCTF=NCI  !•!-(  MCIU-NClW)*  ( INDO/NUTF ) 

NLST=NFST+NCTF-i 

ENCGDE(NCTF,iSD,JC7F>  (JCSTdNDi ) ,  INDJ  =NFST,NLST) 

DECODE (NCTF ,140, JCTF ) ( RNUM ( 1ND1 ) , IND1 -1 , NC IF ) 

NFST=NLST+i 

D0444INDi=i,NCTF 

DFCT=DFCT*.i 

DSTO=DSTO+BFCT*RNUM(INDi) 

444  CONTINUE 

TEST  FOR  SYNTAX  ERROR  IN  MANTISSA. 

450  IF (NPRO. GT . NCST )G0T048D 

IF (JCST (NPRO) .EQ.JCAE)COTO460 

GOT04SO 
C 

C  PROCESS  EXPONENT. 

C 

4L0  NPRO-NPRO+t 
NFST-NPRO 

C  TEST  FOR  MINOS  SION 

IF (JCST (NPRO) .ME . JCHI )GQ104AS 

ESGN=-1 

.'-PRO-NrPO  +  l 

-FST-'PPO 

T0T04T ') 


V/ 


C  TEST  FOR  PLUS  SIGN. 

4f>5  IF  ( JCST ( NPRO ) . ME ,  JCPL) GOTO!/ 0 
NPRO=NPRO+i 
NFST=N?RQ 
C 

C  DETERMINE  LENGTH  OF  EXPONENT. 

470  IF  C  .HOT .  (JCST  (NPRO)  .LE.JCNF .AND. JCST (NPRO)  .GE. JCNI) )GQT047 
NPRO=NPRO+i 
G0T047D 
C 

C  STORE  EXPONENT. 

472  NCCT=NPRO-NFST 

IF(NCCT.EQ.O)GOT047S 
NUTF = i + ( NCCT- i ) /MC I W 
NCLU=NCCT-NCIU*(NWTF-i) 

D0474INBO=i,NUTF 

NCTF=HCIU-(  NCItJ-NCLW ) *( INDO/NUTF ) 

NLET=NFST  +NCTF- i 

ENCODE  ( MCTF ,  150 ,  JCTF )  ( JCST  tINDi ) ,  IK'Di-NFST ,  NLST ) 

DECODE ( NCTF , i30 , JCTF » ( JNUM ( IND1 ) , iNDi =i , NCTF ) 

NFST=NLST+i 
D0474INDi=i , NCTF 

EXPN=10«(NCCT-INDl-r/CIl;*<INM-i)) 

ESTO=ESTO+JNUii(INDi  )4EXPH 

474  CONTINUE 
C 

C  TEST  FOR  SYNTAX  ERROR  IN  EXPONENT. 

475  IF(NPRO.GT.NCST)GOTO480 
I ERR =2 

C 

r.  CONFUTE  NUMBER  AND  STORE  IN  VA'JJ  ARRAY. 

i; 

480  IWAL=NVAL+1 

IF  ( IERR .  NE .  0  )G0T04E(5 
C 

C  STORE  VALID  NUMBER . 

VAL.U  t  NVAL ) =riSGN  H  <  FLOAT  ( ISTO )  +DSTO )  «1 0 .  **  ( ESGN*ESTO ) 

C 

C  RET  UP  fl  TO  BEGINNING  OF  PROCESS  STRING  LOOP. 

GOIO210 

C 

C  PROCESS  ERROR 

C 

C  STORE  BLANK. 

485  VALU(NVAL>rlH 


URITE(MO) 

WRITER, 80) 

WRITE(6,80) 

WRITE(6,70)NIKT 

WRITE(6,80)(JCI«(IHD0),I»D0=i>NCPI) 

WRITE ( 6  >90 ) ICIM , <  JCST (INBO) , I ND  0=1 ,NCFS) 

WRITE(6,iO0) 

C 

C  RETURN  TO  BEGINNING  OF  PROCESS  STRING  LOOP . 

GOT021O 

C 

c 

c 

c  ttmtutunttm  character  string  processing  nttntttttmnm 

ij 

c 

C  PLACE  CHARACTER  STRING  IN  CALL)  USING  ENCODE. 

S00  MCTF=NCRH* ( i+( HCST-i ) /NCRW ) 

ENCODE ( NCTF , i 0 , V ALU ( NVAL+i ) ) ( JCST ( INDO ) , IND0=i , NCST ) 
i; 

C  ADJUST  NUAL . 

NVALrNVAL+i +  ( NCST-i ) /NCPtl 
C 

C  RETURN  TO  BEGINNING  OF  PROCESS  STRING  LOOP. 

GOT 0210 
C 
C 
C 

C  END  OF  SEQUENCE  STRING,  RETURN  TO  CALLING  PROGRAM  UNIT. 

i: 

260  IF ( ITST . EQ . 0 ) COT 027 0 
URITE(fc,iiO) 

!-JRITE(6,30) 

C 

C 

C 

271)  RETURN 
END 


DATE 

ILMED 


